home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Aminet 40
/
Aminet 40 (2000)(Schatztruhe)[!][Dec 2000].iso
/
Aminet
/
comm
/
irc
/
KuangEleven3Gm.lha
/
Kuang Eleven 3
/
Rexx
/
Timer.AMIRX
< prev
next >
Wrap
Text File
|
1998-05-09
|
450b
|
15 lines
/* $VER: Timer.amirx 3.0 (9.5.98) Delay execution of commands
*/
options results
parse arg d rest
if ~show('L','rexxsupport.library') then if ~addlib('rexxsupport.library',0,-30,0) then do
cecho('Fatal Error: Cannot load rexxsupport.library')
exit
end
cecho('Execute "'rest'" in' d 'seconds.')
parse UPPER VERSION ver
freq=substr(word(ver,6),1,2)
call Delay(d*freq)
"SAY" rest
exit
cecho:;"ECHO P="d2c(27)"b«Timer»" arg(1)'.';return 0